SeekEOLN                 Skips Blanks and Tabs, Then Checks for EOLN

 SeekEOLN(var TFile : text) : Boolean;                                   [TP]

    Checks to see if text other than blanks or tabs remain on the current
    line in the file TFile. If there is no more text, this function
    returns TRUE; otherwise, it returns FALSE. TFile must have been
    previously opened for input (using Assign and Reset).

           TFile    A text file.

  -------------------------------- Example ---------------------------------

           Assign(TFile,'MYFILE.TXT');
           Reset(TFile);
           while not SeekEOLN(TFile) do begin
             Read(TFile,I);                 { get next integer on line }
             { process integer }
           end;
           Readln(TFile);